home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / pcl-rev4.lha / pkg.lisp < prev    next >
Lisp/Scheme  |  1990-02-15  |  4KB  |  179 lines
  1. ;;;-*-Mode:LISP; Package:(PCL (LISP WALKER)); Base:10; Syntax:Common-lisp -*-
  2. ;;;
  3. ;;; *************************************************************************
  4. ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
  5. ;;; All rights reserved.
  6. ;;;
  7. ;;; Use and copying of this software and preparation of derivative works
  8. ;;; based upon this software are permitted.  Any distribution of this
  9. ;;; software or derivative works must comply with all applicable United
  10. ;;; States export control laws.
  11. ;;; 
  12. ;;; This software is made available AS IS, and Xerox Corporation makes no
  13. ;;; warranty about the software, its performance or its conformity to any
  14. ;;; specification.
  15. ;;; 
  16. ;;; Any person obtaining a copy of this software is requested to send their
  17. ;;; name and post office or electronic mail address to:
  18. ;;;   CommonLoops Coordinator
  19. ;;;   Xerox PARC
  20. ;;;   3333 Coyote Hill Rd.
  21. ;;;   Palo Alto, CA 94304
  22. ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
  23. ;;;
  24. ;;; Suggestions, comments and requests for improvements are also welcome.
  25. ;;; *************************************************************************
  26. ;;;
  27.  
  28. (in-package 'pcl)
  29.  
  30. ;;;
  31. ;;; Some CommonLisps have more symbols in the Lisp package than the ones that
  32. ;;; are explicitly specified in CLtL.  This causes trouble. Any Lisp that has
  33. ;;; extra symbols in the Lisp package should shadow those symbols in the PCL
  34. ;;; package.
  35. ;;;
  36. #+TI
  37. (shadow '(string-append once-only destructuring-bind
  38.       memq assq delq neq true false
  39.       without-interrupts
  40.       defmethod)
  41.     *the-pcl-package*)
  42.  
  43. #+GCLisp
  44. (shadow '(string-append memq assq delq neq make-instance)
  45.     *the-pcl-package*)
  46.  
  47. #+Genera
  48. (shadowing-import '(zl:arglist zwei:indentation) *the-pcl-package*)
  49.  
  50. #+Lucid 
  51. (import #-LCL3.0 'system:arglist
  52.     #+LCL3.0 'lcl:arglist
  53.     *the-pcl-package*)
  54.  
  55.  
  56.  
  57. (shadow 'documentation)
  58.  
  59.  
  60. ;;;                        
  61. ;;; These come from the index pages of 88-002R.
  62. ;;;
  63. ;;;
  64. (eval-when (compile load eval)  
  65.   
  66. (defvar *exports* '(add-method
  67.             built-in-class
  68.             call-method
  69.             call-next-method
  70.             change-class
  71.             class-name
  72.             class-of
  73.             compute-applicable-methods
  74.             defclass
  75.             defgeneric
  76.             define-method-combination
  77.             defmethod
  78.             ensure-generic-function
  79.             find-class
  80.             find-method
  81.             function-keywords
  82.             generic-flet
  83.             generic-labels
  84.             initialize-instance
  85.             invalid-method-error
  86.             make-instance
  87.             make-instances-obsolete
  88.             method-combination-error
  89.             method-qualifiers
  90.             next-method-p
  91.             no-applicable-method
  92.             no-next-method
  93.             print-object
  94.             reinitialize-instance
  95.             remove-method
  96.             shared-initialize
  97.             slot-boundp
  98.             slot-exists-p
  99.             slot-makunbound
  100.             slot-missing
  101.             slot-unbound
  102.             slot-value
  103.             standard
  104.             standard-class
  105.             standard-generic-function
  106.             standard-method
  107.             standard-object
  108.             structure-class
  109.             symbol-macrolet
  110.             update-instance-for-different-class
  111.             update-instance-for-redefined-class
  112.             with-accessors
  113.             with-added-methods
  114.             with-slots
  115.             ))
  116.  
  117. );eval-when 
  118.  
  119. #-(or KCL IBCL)
  120. (export *exports* *the-pcl-package*)
  121.  
  122. #+(or KCL IBCL)
  123. (mapc 'export (list *exports*) (list *the-pcl-package*))
  124.  
  125.  
  126.  
  127. ;(defvar *chapter-3-exports* '(
  128. ;              get-setf-function
  129. ;              get-setf-function-name
  130. ;
  131. ;              class-prototype
  132. ;              class
  133. ;              object
  134. ;
  135. ;;              essential-class
  136. ;               
  137. ;              class-name
  138. ;              class-precedence-list
  139. ;              class-local-supers
  140. ;              class-local-slots
  141. ;              class-direct-subclasses
  142. ;              class-direct-methods
  143. ;              class-slots
  144. ;
  145. ;               
  146. ;              method-arglist
  147. ;              method-argument-specifiers            
  148. ;              method-function
  149. ;               
  150. ;              method-equal
  151. ;               
  152. ;              slotd-name
  153. ;              slot-missing
  154. ;               
  155. ;;              define-meta-class
  156. ;;              %allocate-instance
  157. ;;              %instance-ref
  158. ;;              %instancep
  159. ;;              %instance-meta-class
  160. ;
  161. ;              allocate-instance
  162. ;              optimize-slot-value
  163. ;              optimize-setf-of-slot-value
  164. ;              add-named-class
  165. ;              class-for-redefinition
  166. ;              add-class
  167. ;              supers-changed
  168. ;              slots-changed
  169. ;              check-super-metaclass-compatibility
  170. ;              make-slotd
  171. ;              compute-class-precedence-list
  172. ;              walk-method-body
  173. ;              walk-method-body-form
  174. ;              add-named-method
  175. ;              remove-named-method
  176. ;
  177. ;
  178. ;              ))
  179.